home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas2c.zip / SAVEREG.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  248b  |  24 lines
  1. {
  2.  
  3.     SAVEREG.PAS
  4.  
  5.     Declaration for SI/DI save stack (see savereg.h)
  6.  
  7. }
  8.  
  9. unit SAVEREG;
  10.  
  11. interface
  12.  
  13. var
  14.     __rsp : Pointer;
  15.  
  16. implementation
  17.  
  18. var
  19.     SiDiStack : array [0..10] of Word;
  20.  
  21. begin
  22. __rsp := @SiDiStack[0];
  23. end.
  24.